home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GRAVIS Top 100 #1
/
GRAVIS CD No1_Herbst_94.cdr
/
Deneba
/
Canvas™ 3.5.2 US
/
Canvas™ 3.5.2
/
Canvas™ 3.5.2.rsrc
/
PSst_1005
< prev
next >
Wrap
Text File
|
1994-07-18
|
359b
|
5 lines
< >< >1 currenttransfer exec 0 eq{exch pop{1 exch sub}}{pop{}}ifelse settransfer
/patspot {1 add 4 mul cvi exch 1 add 4 mul cvi exch patstr exch get exch 7 exch sub 1 exch bitshift and 0 ne{1}{0}ifelse}bind def
/setpat {/patstr exch def 9.375 1 0 dtransform exch atan /patspot load systemdict begin setscreen end}bind def
setpat